home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / ode25.arc / COUPOSC.ODE < prev    next >
Encoding:
Text File  |  1990-10-22  |  218 b   |  18 lines
  1. # COUPOSC.ODE
  2. # Two coupled oscillators
  3. # Notice the beats !
  4.  
  5. $m -4
  6. $n 200
  7. $t 100
  8.  
  9. x1  = 0
  10. x2  = 9,8,7,6,5,4,3,2,1
  11. v1  = 0
  12. v2  = 0
  13. x1' = v1
  14. x2' = v2
  15. d   =  x2 - x1
  16. v1' = -x1 - 0.2*d
  17. v2' = -x2 + 0.1*d
  18.